home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Camelot
/
Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].zip
/
Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].adf
/
XLisp-Stat
/
Book
/
scroll.lsp
< prev
next >
Wrap
Text File
|
1990-10-11
|
847b
|
21 lines
; book p.232
(setf p-label (send text-item-proto :new "p"))
(setf n-label (send text-item-proto :new "n"))
(setf p-value (send text-item-proto :new "" :text-length 10))
(setf n-value (send text-item-proto :new "" :text-length 10))
(setf p-scroll (send interval-scroll-item-proto :new
'(0 1)
:text-item p-value
:action
#'(lambda (x) (format t "p = ~g~%" x))))
(setf n-scroll (send interval-scroll-item-proto :new
(iseq 1 50)
:text-item n-value
:action
#'(lambda (x) (format t "n = ~g~%" x))))
(send dialog-proto :new (list (list p-label p-value)
p-scroll
(list n-label n-value)
n-scroll))